Gols marcados e sofridos

Row

Gols marcados de acordo com o mando de campo

Gols sofridos de acordo com o mando de campo

Número de derrotas e vitórias

Row

Número de vitórias de acordo com o mando de campo

Número de derrotas de acordo com o mando de campo

---
title: "Estatísticas do Flamengo no Brasileirão de Pontos Corridos (2003-2020)"
#author: "Santhiago Cristiano"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    theme: journal
    social: menu
    source_code: embed
---


```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(plotly)

knitr::opts_knit$set(root.dir = rprojroot::find_rstudio_root_file())
```

```{r, include=FALSE}
source(
  file = "./R/brasileirao-flamengo.R",
  local = knitr::knit_global(),
  echo = TRUE, 
  encoding = "UTF-8"
)
```

Gols marcados e sofridos
=========================

Row {data-width=1000}
-----------------------------------------------------------------------

### Gols marcados de acordo com o mando de campo

```{r}
p1 <- flamengo %>%
  group_by(ano, mando_campo) %>% 
  summarise(Gols = sum(gols_marcados, na.rm = TRUE), .groups = "drop") %>% 
  ggplot() +
  aes(x = ano, y = Gols, fill = mando_campo) + 
  geom_bar(aes(text = mando_campo), position = "stack", stat = "identity") +
  coord_flip() +
  scale_x_reverse(breaks = seq(2003, 2020, 1)) +
  scale_y_continuous(breaks = seq(0, 90, 10)) + 
  scale_fill_manual(values = c("#c3281e", "black")) +
  labs(
    x = "Edição do Campeonato",
    y = "Gols Marcados",
    fill = "",
    caption = "* de 2003 a 2005 o campeonato possuía mais de 38 rodadas."
  ) + 
  theme_minimal()

ggplotly(p1, tooltip = c("text", "y"))
```

### Gols sofridos de acordo com o mando de campo

```{r}
p2 <- flamengo %>%
  group_by(ano, mando_campo) %>% 
  summarise(Gols = sum(gols_sofridos, na.rm = TRUE), .groups = "drop") %>% 
  ggplot() +
  aes(x = ano, y = Gols, fill = mando_campo) + 
  geom_bar(aes(text = mando_campo), position = "stack", stat = "identity") +
  coord_flip() +
  scale_x_reverse(breaks = seq(2003, 2020, 1)) +
  scale_y_continuous(breaks = seq(0, 80, 10)) + 
  scale_fill_manual(values = c("#c3281e", "black")) +
  labs(
    x = "Edição do Campeonato",
    y = "Gols Sofridos",
    fill = "",
    caption = "* de 2003 a 2005 o campeonato possuía mais de 38 rodadas."
  ) + 
  theme_minimal()

ggplotly(p2, tooltip = c("text", "y"))
```

Número de derrotas e vitórias
=========================

Row {data-width=1000}
-----------------------------------------------------------------------

### Número de vitórias de acordo com o mando de campo

```{r}
p3 <- flamengo %>% 
  filter(resultado == "Vitória") %>% 
  group_by(ano, mando_campo) %>% 
  count(resultado) %>% 
  ggplot() + 
  aes(x = ano, y = n, fill = mando_campo) +
  geom_bar(aes(text = mando_campo), position = "stack", stat = "identity") +
  coord_flip() +
  scale_x_reverse(breaks = seq(2003, 2020, 1)) +
  scale_y_continuous(breaks = seq(0, 40, 5)) +
  scale_fill_manual(values = c("#c3281e", "black")) +
  labs(
    x = "Edição do Campeonato",
    y = "Número de Vitórias",
    fill = "",
    caption = "* de 2003 a 2005 o campeonato possuía mais de 38 rodadas."
  ) +
  theme_minimal()

ggplotly(p3, tooltip = c("text", "y"))
```

### Número de derrotas de acordo com o mando de campo

```{r}
p4 <- flamengo %>% 
  filter(resultado == "Derrota") %>% 
  group_by(ano, mando_campo) %>% 
  count(resultado) %>% 
  ggplot() + 
  aes(x = ano, y = n, fill = mando_campo) +
  geom_bar(aes(text = mando_campo), position = "stack", stat = "identity") +
  coord_flip() +
  scale_x_reverse(breaks = seq(2003, 2020, 1)) +
  scale_y_continuous(breaks = seq(0, 20, 5)) +
  scale_fill_manual(values = c("#c3281e", "black")) +
  labs(
    x = "Edição do Campeonato",
    y = "Número de Derrotas",
    fill = "",
    caption = "* de 2003 a 2005 o campeonato possuía mais de 38 rodadas."
  ) +
  theme_minimal()

ggplotly(p4, tooltip = c("text", "y"))
```